home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / util / cdity / MCP130.lha / MCP / Install_MCP < prev    next >
Encoding:
Text File  |  1997-09-09  |  24.7 KB  |  1,109 lines
  1. ;============================================================================;
  2. ;=               MCP Installscript V3.1 bY fOX/ALiENDESiGN!                 =;
  3. ;============================================================================;
  4.  
  5. ;================================= ENGLISH ==================================;
  6.  
  7. (set languages-default 1)
  8.  
  9. (set #bad-kick "You must be using Kickstart 2.04+ to install MCP")
  10.  
  11. (set #copy-mcp "Copying MCP...")
  12.  
  13. (set #copy-mcpicon "Copying MCP-Icon...")
  14.  
  15. (set #copy-mcpprefs "Copying MCP preferences editor...")
  16.  
  17. (set #copy-catalog "Copying preferences translation...")
  18.  
  19. (set #copy-democonfig "Copying Democonfiguration...")
  20.  
  21. (set #copy-pointer "Copying Demo 16 color pointer...")
  22.  
  23. (set #copy-gurudat "Copying Guru informations...")
  24.  
  25. (set #copy-doc "Copying Documentations...")
  26.  
  27. (set #copy-patchcontrol "Copying PatchControl...")
  28.  
  29. (set #copy-showpatches "Copying ShowPatches...")
  30.  
  31. (set #copy-fixjump "Copying FixJump...")
  32.  
  33. (set #copy-mcpsupport-library "Copying mcpsupport.library to Libs: ...")
  34.  
  35. (set #copy-mcpgfx-library "Copying mcpgfx.library to Libs: ...")
  36.  
  37. (set #copy-reqtools-library "Copying reqtools.library to Libs: ...")
  38.  
  39. (set #copy-envarc-env "Copying ENV:MCP to ENVARC:MCP ...")
  40.  
  41. (set #install-select
  42.   (cat
  43.     "Please select the different parts of MCP that you"
  44.     " would like to install:"
  45.   )
  46. )
  47.  
  48. (set #install-select-help
  49.   (cat
  50.     "MCP: The Master Control Program...\n"
  51.     "\n"
  52.     "MCP-Icon: The icon from MCP... It's worth using this,"
  53.     " if MCP should be installed to C:.\n"
  54.     "\n"
  55.     "MCP Preferences: The MCP preferences editor.\n"
  56.     "\n"
  57.     "Translations for MCPPrefs: The MCP-Preferences Cata-\n"
  58.     "log-files.\n"
  59.     "\n"
  60.     "Demo Configuration: A demo-configuration for MCP.\n"
  61.     "16 Color Pointer: Some 16-Color mousepointers.\n"
  62.     "\n"
  63.     "Guru Infos: MCP.gurudat. Needed for MCPs NoGuru and\n"
  64.     "AlertHistory.\n"
  65.     "\n"
  66.     "Documentation: The documentations for all programs.\n"
  67.     "\n"
  68.     "PatchControl: A program for better systempatch hand-\n"
  69.     "ling. Needed for MCPPrefs USE and TEST.\n"
  70.     "\n"
  71.     "ShowPatches: A tool to show all systempatches, if Pa-"
  72.     "tchControl was started.\n"
  73.     "\n"
  74.     "FixJump: To solve all problems with jumping BootPics.\n"
  75.     "\n"
  76.     "reqtools.library: Needed for MCP.\n"
  77.   )
  78. )
  79.  
  80. (set #doc-select
  81.   (cat
  82.     "Please select your favourite documentation that you would"
  83.     " like to install:"
  84.   )
  85. )
  86.  
  87. (set #doc-select-help
  88.   (cat
  89.     "Make sure that you have an AmigaGuide® viewer to"
  90.     " enjoy the Guide documentation!"
  91.   )
  92. )
  93.  
  94. (set #languages-select "\nWhich languages should be installed?")
  95.  
  96. (set #languages-select-help
  97.   (cat
  98.     "Please select your favourite language that should be"
  99.     " copied to your Locale: directory?"
  100.   )
  101. )
  102.  
  103. (set #pointer-select "Which 16-Color pointer should be installed? ")
  104.  
  105. (set #pointer-select-help
  106.   (cat
  107.     "There are some REALLY NICE pointers available, please check:"
  108.     "\n\nDescription of the pointers:\n\n"
  109.     "Blue + Joshi.: Blue pointer with a gold medal of Joshi\n"
  110.     "ColorMagic...: Really nice pointer with a cream-tone and a"
  111.     " zZz-busy pointer\n"
  112.     "DragonHand...: Nice hand as pointer and a cool dragon as"
  113.     " busy pointer"
  114.   )
  115. )
  116.  
  117. (set #pointer1 "Blue + Joshi by fOX!")
  118. (set #pointer2 "Colormagic   by Fli7e")
  119. (set #pointer3 "Dragonhand   by Trevor Moris")
  120.  
  121. (set #startup-mcp "Do you want to insert MCP into your S:Startup-Sequence ?")
  122.  
  123. (set #startup-mcp-help
  124.   (cat
  125.     "If you select 'Yes', MCP will be inserted to your Startup-"
  126.     "Sequence after your last assign of ENV: \n"
  127.     "So it's automaticly installed on each bootup!"
  128.   )
  129. )
  130.  
  131. (set #startup-patchcontrol
  132.   (cat
  133.     "Do you want to insert PatchControl into your"
  134.     " S:Startup-Sequence ?"
  135.   )
  136. )
  137.  
  138. (set #startup-patchcontrol-help
  139.   (cat
  140.     "If you select 'Yes', Patchcontrol will be inserted right"
  141.     " after the SetPatch command in your Startup-Sequence."
  142.   )
  143. )
  144.  
  145. (set #item-mcp "MCP")
  146.  
  147. (set #item-mcpicon "MCP-Icon")
  148.  
  149. (set #item-mcpprefs "MCP Preferences")
  150.  
  151. (set #item-translations "Translations for MCPPrefs")
  152.  
  153. (set #item-democonfig "Demo Configuration")
  154.  
  155. (set #item-demopointer "16 Color Pointer")
  156.  
  157. (set #item-gurudat "Guru Infos")
  158.  
  159. (set #item-doc "Documentations")
  160.  
  161. (set #item-patchcontrol "PatchControl")
  162.  
  163. (set #item-showpatches "ShowPatches")
  164.  
  165. (set #item-fixjump "FixJump")
  166.  
  167. (set #item-mcpsupport-library "mcpsupport.library")
  168.  
  169. (set #item-mcpgfx-library "mcpgfx.library")
  170.  
  171. (set #item-reqtools-library "reqtools.library")
  172.  
  173. (set #where-mcp "Where would you like to install MCP?")
  174.  
  175. (set #where-mcp-help
  176.   (cat
  177.     "This is the destination directory of MCP"
  178.   )
  179. )
  180.  
  181. (set #where-mcpprefs "Where would you like to install MCP Preferences editor?")
  182.  
  183. (set #where-mcpprefs-help
  184.   (cat
  185.     "This is the destination directory of MCP Preferences editor!"
  186.     " Normally ALL preferences editors are in SYS:Prefs !"
  187.   )
  188. )
  189.  
  190. (set #where-gurudat "Where would you like to install the Guru-Information?")
  191.  
  192. (set #where-gurudat-help 
  193.   (cat
  194.     "The guru information is a file called MCP.gurudat"
  195.     " and it's normally placed in your S: directory.\n"
  196.     "If you have installed the democonfig you have to use S:."
  197.   )
  198. )
  199.  
  200. (set #where-doc "Where would you like to install the Documentations?")
  201.  
  202. (set #where-patchcontrol "Where would you like to install PatchControl?")
  203.  
  204. (set #where-patchcontrol-help
  205.   (cat
  206.     "PatchControl is normally placed in your C: directory!"
  207.   )
  208. )
  209.  
  210. (set #where-showpatches "Where would you like to install ShowPatches?")
  211.  
  212. (set #where-showpatches-help
  213.   (cat
  214.     "ShowPatches is normally placed in your C: directory!"
  215.   )
  216. )
  217.  
  218. (set #where-fixjump "Where would you like to install FixJump?")
  219.  
  220. (set #where-fixjump-help
  221.   (cat
  222.     "FixJump is normally placed in your C: directory!"
  223.   )
  224. )
  225.  
  226. (set #which-startup "Select your startup with ENV: assign!")
  227.  
  228. (set #which-startup-help
  229.   (cat
  230.     "Please select your startup-sequence with your first"
  231.     " ENV: assign, because MCP is added right after it."
  232.     " If you doesn't select the right startup you have insert"
  233.     " it by yourself...\n"
  234.     "ATTENTION: If there is already a MCP installed into this"
  235.     " startup the installer wouldn't add anything."
  236.   )
  237. )
  238.  
  239. (set #run-conv "Please Wait... Converting In Progress")
  240.  
  241. (set #conv-ap "Do you want to convert AssignPrefs to MCP.config ?")
  242.  
  243. (set #conv-am "Do you want to convert AssignManager.prefs to MCP.config ?")
  244.  
  245. (set #conv-help
  246.   (cat
  247.     "If you convert your AssignPrefs / AssignManager, you"
  248.     " can drop this program if you select 'AssignPrefs = ON'"
  249.     " in the MCPPrefs program!"
  250.   )
  251. )
  252.  
  253. (set #install-exit
  254.   (cat
  255.     "Thank you for installing MCP ..."
  256.   )
  257. )
  258.  
  259. (set #install-start
  260.   (cat
  261.     "Welcome to MCP installation utility!\n\n"
  262.     ".######.     .####  \n"
  263.     "###  ###     #####  \n"
  264.     "     ###      ####  \n"
  265.     "  #####       ####  \n"
  266.     "    .###      ####  \n"
  267.     "### ####      ####  \n"
  268.     "### #### ##   ####  \n"
  269.     "`######' ## ########\n\n"
  270.     "fOR MCP 1.30\n"
  271.     "Written and performed by fOX/aLiENDESiGN!\n"
  272.     "(Updated by Mario 'padrino' Cattaneo)\n"
  273.   )
  274. )
  275.  
  276. (set #run-prefs "Running MCPPrefs ! Configurate your MCP!")
  277.  
  278. (set #run-prefs-help
  279.   (cat
  280.     "If you already run an older version of MCP you have to"
  281.     " save your config again!\n\n"
  282.     "New users have to configure the whole MCP !"
  283.   )
  284. )
  285.  
  286. ;===[ German Documentation ]=================================================
  287.  
  288. (if (= @language "deutsch")
  289.  (
  290. (set languages-default 2)
  291.  
  292. (set #bad-kick "Man benötigt Kickstart 2.04 oder höher, um MCP benutzen zu können!")
  293.  
  294. (set #copy-mcp "Kopiere MCP...")
  295.  
  296. (set #copy-mcpicon "Kopiere MCP-Icon...")
  297.  
  298. (set #copy-mcpprefs "Kopiere MCP Voreinsteller...")
  299.  
  300. (set #copy-catalog "Kopiere Voreinsteller-Übersetzungen...")
  301.  
  302. (set #copy-democonfig "Kopiere Demo Einstellung...")
  303.  
  304. (set #copy-pointer "Kopiere Demo 16 Farben Mauszeiger...")
  305.  
  306. (set #copy-gurudat "Kopiere Guru Informationen...")
  307.  
  308. (set #copy-doc "Kopiere Dokumentationen...")
  309.  
  310. (set #copy-patchcontrol "Kopiere PatchControl...")
  311.  
  312. (set #copy-showpatches "Kopiere ShowPatches...")
  313.  
  314. (set #copy-fixjump "Kopiere FixJump...")
  315.  
  316. (set #copy-mcpsupport-library "Kopiere mcpsupport.library ins Libs: ...")
  317.  
  318. (set #copy-mcpgfx-library "Kopiere mcpgfx.library ins Libs: ...")
  319.  
  320. (set #copy-reqtools-library "Kopiere reqtools.library ins Libs: ...")
  321.  
  322. (set #copy-envarc-env "Kopiere ENV:MCP ins ENVARC:MCP ...")
  323.  
  324. (set #install-select
  325.   (cat
  326.     "Bitte wähle die einzelnen Teile des MCP aus, die"
  327.     " Du installieren möchtest:"
  328.   )
  329. )
  330.  
  331. (set #install-select-help
  332.   (cat
  333.     "MCP: Das Master Control Program...\n"
  334.     "\n"
  335.     "MCP-Icon: Das Icon für MCP... Es ist nur nützlich wenn Du"
  336.     " MCP in das C: Verzeichnis installierst.\n"
  337.     "\n"
  338.     "MCP Preferences: Der MCP Voreinsteller (benötigt MUI).\n"
  339.     "\n"
  340.     "Übersetzungen für MCPPrefs: Die MCP-Voreinsteller Cata-\n"
  341.     "log-Dateien.\n"
  342.     "\n"
  343.     "Demo Einstellung: Eine Beispiel-Einstellung für MCP.\n"
  344.     "16 Farben Zeiger: Einige 16-Farben Mauszeiger.\n"
  345.     "\n"
  346.     "Guru Infos: MCP.gurudat. Wird von der MCP-NoGuru und\n"
  347.     "AlertHistory benutzt.\n"
  348.     "\n"
  349.     "Dokumentationen: Die Dokumentationen für alle Programme.\n"
  350.     "\n"
  351.     "PatchControl: Ist ein Programm das ein besseres SystemPatching\n"
  352.     "ermöglicht. Wird gebraucht, um bei MCPPrefs \"Benutzen\" und\n"
  353.     "\"Testen\" benutzen zu können\n"
  354.     "\n"
  355.     "ShowPatches: Zeigt die geänderten SystemFunktionen an.\n"
  356.     "\n"
  357.     "FixJump: Entfernt das Problem mit springenden BootBildern\n.\n"
  358.     "\n"
  359.     "reqtools.library: Wird vom MCP benötigt.\n"
  360.   )
  361. )
  362.  
  363. (set #doc-select
  364.   (cat
  365.     "Bitte wähle die Dokumentationen aus, die Du installieren möchtest:"
  366.   )
  367. )
  368.  
  369. (set #doc-select-help
  370.   (cat
  371.     "Du brauchst einen AmigaGuide® Anzeiger, um die Guide Dateien anzuzeigen."
  372.   )
  373. )
  374.  
  375. (set #languages-select "\nWelche Sprachen sollen installiert werden?")
  376.  
  377. (set #languages-select-help
  378.   (cat
  379.     "Bitte suche die Sprache für MCPPrefs aus, die "
  380.     " in Dein Locale: Verzeichnis kopiert werden soll!"
  381.   )
  382. )
  383.  
  384. (set #pointer-select "Welcher 16-Farben Mauszeiger soll installiert werden?")
  385.  
  386. (set #pointer-select-help
  387.   (cat
  388.     "Erläuterung der MausZeiger:\n\n"
  389.     "Blue + Joshi.: Blauer Pfeil mit einer Gold Medaille von Joshi\n"
  390.     "ColorMagic...: Sehr schöner Cremefarbener Zeiger mit einem\n"
  391.     " zZz-Warte Zeiger\n"
  392.     "DrachenHand..: Eine Hand als Zeiger und ein toller Drachen"
  393.     " als Warte Zeiger."
  394.   )
  395. )
  396.  
  397. (set #pointer1 "Blue + Joshi von fOX!")
  398. (set #pointer2 "Colormagic   von Fli7e")
  399. (set #pointer3 "Drachenhand  von Trevor Moris")
  400.  
  401. (set #startup-mcp "Möchtest Du MCP in Deine S:Startup-Sequence einfügen lassen?")
  402.  
  403. (set #startup-mcp-help
  404.   (cat
  405.     "Wenn Du 'Ja' auswählst, wird MCP in Deiner Startup-"
  406.     "Sequence nach dem letzten ENV: assign eingefügt.\n"
  407.     "Damit wird es automatisch beim Systemstart gestartet."
  408.   )
  409. )
  410.  
  411. (set #startup-patchcontrol
  412.   (cat
  413.     "Möchtest Du PatchControl in Deine S:Startup-Sequence einfügen lassen?"
  414.   )
  415. )
  416.  
  417. (set #startup-patchcontrol-help
  418.   (cat
  419.     "Wenn Du 'Ja' auswählst, wird PatchControl in Deiner Startup-Sequence nach dem SetPatch eingefügt."
  420.   )
  421. )
  422.  
  423. (set #item-mcpprefs "MCP Voreinsteller")
  424.  
  425. (set #item-translations "Übersetzungen für MCPPrefs")
  426.  
  427. (set #item-democonfig "Demo Einstellung")
  428.  
  429. (set #item-demopointer "16 Farben Mauspfeil")
  430.  
  431. (set #item-doc "Dokumentationen")
  432.  
  433. (set #where-mcp "Wohin möchtest Du MCP installieren?")
  434.  
  435. (set #where-mcp-help
  436.   (cat
  437.     "Dies ist das Zielverzeichnis von MCP."
  438.   )
  439. )
  440.  
  441. (set #where-mcpprefs "Wohin möchtest Du den MCP Voreinsteller installieren?")
  442.  
  443. (set #where-mcpprefs-help
  444.   (cat
  445.     "Dies ist das Zielverzeichnis vom MCP Voreinsteller!"
  446.     "Normalerweise sind alle Voreinstellungsprogramme im SYS:Prefs !"
  447.   )
  448. )
  449.  
  450. (set #where-gurudat "Wohin möchtest Du die Guru-Informationen installieren?")
  451.  
  452. (set #where-gurudat-help 
  453.   (cat
  454.     "Die Guru-Information heißt 'MCP.gurudat' und wird"
  455.     " normalerweise ins S: Verzeichnis installiert.\n"
  456.     "Wenn Du die Demo Einstellung installiert hast, wähle"
  457.     " das S: Verzeichnis"
  458.   )
  459. )
  460.  
  461. (set #where-doc "Wohin möchtest Du die Dokumentationen installieren?")
  462.  
  463. (set #where-patchcontrol "Wohin möchtest Du PatchControl installieren?")
  464.  
  465. (set #where-patchcontrol-help
  466.   (cat
  467.     "PatchControl wird normalerweise ins C: Verzeichnis"
  468.     " installiert!"
  469.   )
  470. )
  471.  
  472. (set #where-showpatches "Wohin möchtest Du ShowPatches installieren?")
  473.  
  474. (set #where-showpatches-help
  475.   (cat
  476.     "ShowPatches wird normalerweise ins C: Verzeichnis"
  477.     " installiert!"
  478.   )
  479. )
  480.  
  481. (set #where-fixjump "Wohin möchtest Du FixJump installieren?")
  482.  
  483. (set #where-fixjump-help
  484.   (cat
  485.     "FixJump wird normalerweise ins C: Verzeichnis"
  486.     " installiert!"
  487.   )
  488. )
  489.  
  490. (set #which-startup "Bitte wähle dein Startup mit dem ENV: assign!")
  491.  
  492. (set #which-startup-help
  493.   (cat
  494.     "Wähle hier die Startup-Sequence die dein erstes ENV:"
  495.     " assign enthält, dieses ist deshalt notwendig weil der"
  496.     " Installer nach dem ENV: sucht und danach dann das MCP"
  497.     " direkt danach einfügt. Solltest Du dieses nicht richtig"
  498.     " machen, so musst Du nachher selber das MCP einfügen!\n"
  499.     "ACHTUNG: Sollte bereits ein MCP in dieser Startup enthalten"
  500.     " sein so wird vom Installer nichts hinzugefuegt!"
  501.   )
  502. )
  503.  
  504. (set #run-conv "Bitte warten... Konvertierung läuft!")
  505.  
  506. (set #conv-ap "Möchtest Du Deine AssignPrefs zur MCP.config konvertieren?")
  507.  
  508. (set #conv-am "Möchtest Du Deine AssignManager.prefs zur MCP.config konvertieren?")
  509.  
  510. (set #conv-help
  511.   (cat
  512.     "Wenn Du AssignPrefs / AssignManager Konfigurationen"
  513.     " konvertiert hast, kannst Du diese entfernen."
  514.   )
  515. )
  516.  
  517. (set #install-exit
  518.   (cat
  519.     "Vielen Dank für die Installation von MCP ...\n\n"
  520.     "...Fortsetzung folgt..."
  521.   )
  522. )
  523.  
  524. (set #install-start
  525.   (cat
  526.     "Willkommen zur MCP Installation!\n\n"
  527.     ".######.     .####  \n"
  528.     "###  ###     #####  \n"
  529.     "     ###      ####  \n"
  530.     "  #####       ####  \n"
  531.     "    .###      ####  \n"
  532.     "### ####      ####  \n"
  533.     "### #### ##   ####  \n"
  534.     "`######' ## ########\n\n"
  535.     "fÜR MCP 1.30\n"
  536.     "Geschrieben von fOX/aLiENDESiGN!\n"
  537.     "(Aktualisiert von Mario 'padrino' Cattaneo)\n"
  538.   )
  539. )
  540.  
  541. (set #run-prefs "Starte MCPPrefs... Konfiguriere nun den MCP!")
  542.  
  543. (set #run-prefs-help
  544.   (cat
  545.     "Wenn Du bereits eine ältere Version von MCP laufen hast,"
  546.     " speichere Deine Einstellung unbedingt neu!\n\n"
  547.   )
  548. )
  549.  
  550.  )
  551. )
  552.  
  553. ;============================== PROGRAM-START================================
  554.  
  555. (set @default-dest "")
  556.  
  557. ; Check Kickstart (>= v2.0) Version.
  558.  
  559. (if (< (/ (getversion) 65536) 37)
  560.   (abort #bad-kick)
  561. )
  562.  
  563. (message #install-start)
  564.  
  565. ;============================ REAL INSTALLATION =============================
  566.  
  567. (set install-default 8071)
  568.  
  569. (if (exists "Locale:" (noreq))
  570.   (set install-default (BITOR install-default 8))
  571. )
  572.  
  573. (if (NOT (exists "ENVARC:MCP/MCP.Config" (noreq)))
  574.   (set install-default (BITOR install-default 16))
  575. )
  576.  
  577. (if (NOT (exists "ENVARC:MCP/MCPPointer.prefs" (noreq)))
  578.   (set install-default (BITOR install-default 32))
  579. )
  580.  
  581. (if (NOT (exists "Libs:reqtools.library" (noreq)))
  582.   (set install-default (BITOR install-default 8192))
  583. )
  584.  
  585. (welcome)
  586.  
  587. (set install-files
  588.   (askoptions
  589.     (prompt #install-select)
  590.     (help #install-select-help "\n\n" @askoptions-help)
  591.     (choices
  592.       #item-mcp
  593.       #item-mcpicon
  594.       #item-mcpprefs
  595.       #item-translations
  596.       #item-democonfig
  597.       #item-demopointer
  598.       #item-gurudat
  599.       #item-doc
  600.       #item-patchcontrol
  601.       #item-showpatches
  602.       #item-fixjump
  603.       #item-mcpsupport-library
  604.       #item-mcpgfx-library
  605.       #item-reqtools-library
  606.     )
  607.     (default install-default)
  608.   )
  609. )
  610.  
  611. (set startup-files 0)
  612.  
  613. (if (BITAND install-files 1)
  614.   (
  615.     (set mcp-dest
  616.       (askdir
  617.         (prompt #where-mcp)
  618.         (help #where-mcp-help "\n\n" @askdir-help)
  619.         (default "C:")
  620.       )
  621.     )
  622.     (if (RUN "C/Search S:StartUp-Sequence #?MCP PATTERN QUIET")
  623.       (if (askbool
  624.           (prompt #startup-mcp)
  625.           (help #startup-mcp-help "\n\n" @askbool_help)
  626.           (default 1)
  627.         )
  628.         (set startup-files (BITOR startup-files 1))
  629.       )
  630.     )
  631.   )
  632. )
  633.  
  634. (if (BITAND install-files 4)
  635.   (set mcpprefs-dest
  636.     (askdir
  637.       (prompt #where-mcpprefs)
  638.       (help #where-mcpprefs-help "\n\n" @askdir-help)
  639.       (default "SYS:Prefs/")
  640.     )
  641.   )
  642. )
  643.  
  644. (if (BITAND install-files 256)
  645.   (
  646.     (set patchcontrol-dest
  647.       (askdir
  648.         (prompt #where-patchcontrol)
  649.         (help #where-patchcontrol-help "\n\n" @askdir-help)
  650.         (default "C:")
  651.       )
  652.     )
  653.     (if (RUN "C/Search S:StartUp-Sequence #?patchcontrol PATTERN QUIET")
  654.       (if (askbool
  655.           (prompt #startup-patchcontrol)
  656.           (help #startup-patchcontrol-help "\n\n" @askbool_help)
  657.           (default 1)
  658.         )
  659.         (set startup-files (BITOR startup-files 2))
  660.       )
  661.     )
  662.   )
  663. )
  664.  
  665. (if (BITAND install-files 512)
  666.   (set showpatches-dest
  667.     (askdir
  668.       (prompt #where-showpatches)
  669.       (help #where-showpatches-help "\n\n" @askdir-help)
  670.       (default "C:")
  671.     )
  672.   )
  673. )
  674.  
  675. ;Set FixJump Destination
  676.  
  677. (if (BITAND install-files 1024)
  678.   (set fixjump-dest
  679.     (askdir
  680.       (prompt #where-fixjump)
  681.       (help #where-fixjump-help "\n\n" @askdir-help)
  682.       (default "C:")
  683.     )
  684.   )
  685. )
  686.  
  687. ;Set MCP.gurudat Destination
  688.  
  689. (if (BITAND install-files 64)
  690.   (set gurudat-dest
  691.     (askdir
  692.       (prompt #where-gurudat)
  693.       (help #where-gurudat-help "\n\n" @askdir-help)
  694.       (default "S:")
  695.     )
  696.   )
  697. )
  698.  
  699. ; Check + DefaultSet + Request Of Documentation(s)
  700.  
  701. (if (BITAND install-files 128)
  702.   (
  703.     (if (= @LANGUAGE "deutsch")
  704.       (set doc-default 2)
  705.       (set doc-default 1)
  706.     )
  707.     (set doc-files
  708.       (askoptions
  709.         (prompt #doc-select)
  710.           (help #doc-select-help "\n\n" @askoptions-help)
  711.           (choices
  712.             "MCP.......... English"
  713.             "MCP.......... Deutsch"
  714.             "MCP.......... Français"
  715.             "MCP.......... Italiano"
  716.             "MCP.......... Svenska"
  717.           )
  718.         (default doc-default)
  719.       )
  720.     )
  721.     (set doc-dest
  722.       (askdir
  723.         (prompt #where-doc)
  724.         (help @askdir-help)
  725.         (default "SYS:")
  726.       )
  727.     )
  728.   )
  729. )
  730.  
  731. (if (AND (BITAND install-files 8) (= (exists "Locale:") 2))
  732.   (set  languages
  733.     (askoptions
  734.       (prompt #languages-select)
  735.       (help #languages-select-help "\n\n" @askoptions-help)
  736.       (choices
  737.         "English"
  738.         "Deutsch"
  739.         "Français"
  740.         "Danish"
  741.         "Italiano"
  742.         "Norsk"
  743.         "Svenska"
  744.         "Español"
  745.         "hrvatski"
  746.         "nederlands"
  747.         "suomi"
  748.         "turkçe"
  749.         "ÃeÓtina"
  750.         "çeský"
  751.         "ðóññêèé"
  752.       )
  753.       (default languages-default)
  754.     )
  755.   )
  756. )
  757.  
  758. (if (BITAND install-files 32)
  759.   (set pointer
  760.     (askchoice
  761.       (prompt #pointer-select)
  762.       (help #pointer-select-help)
  763.       (choices
  764.         #pointer1
  765.         #pointer2
  766.         #pointer3
  767.       )
  768.       (default 0)
  769.     )
  770.   )
  771. )
  772.  
  773. ;========================== COPY STARTS HERE ===============================
  774.  
  775. ; Copy MCP + Install in Startup
  776.  
  777. (if (BITAND install-files 1)
  778.   (
  779.     (set prozess (database "cpu"))
  780.     (if (< "68010" prozess)
  781.       (set mcp-source "MCP020")
  782.       (set mcp-source "MCP")
  783.     )
  784.     (copyfiles
  785.       (prompt #copy-mcp)
  786.       (source mcp-source)
  787.       (newname "MCP")
  788.       (dest mcp-dest)
  789.       (files)
  790.     )
  791.     (if (BITAND startup-files 1)
  792.       (
  793.         (if (RUN ("C/InsertText S:Startup-Sequence \"#?Assign#?ENV:#?\" \"%s\" LAST" (tackon mcp-dest "MCP")))
  794.           (
  795.             (set newstartup
  796.               (askfile
  797.                 (prompt #which-startup)
  798.                 (help #which-startup-help "\n\n" @askfile-help)
  799.                 (default "S:User-Startup")
  800.               )
  801.             )
  802.             (if (RUN "C/Search %s #?MCP PATTERN QUIET" (newstartup))
  803.               (RUN ("C/InsertText %s \"#?Assign#?ENV:#?\" \"%s\" LAST" (newstartup) (tackon mcp-dest "MCP")))
  804.             )
  805.           )
  806.         )
  807.       )
  808.     )
  809.   )
  810. )
  811.  
  812. (complete 7)
  813.  
  814. ; Copy MCP-Icon
  815.  
  816. (if (AND (BITAND install-files 2) (BITAND install-files 1))
  817.   (copyfiles
  818.     (prompt #copy-mcp-icon)
  819.     (source "MCP.info")
  820.     (dest mcp-dest)
  821.   )
  822. )
  823.  
  824. (complete 14)
  825.  
  826. ;Copy MCP Preferences
  827.  
  828. (if (BITAND install-files 4)
  829.   (copyfiles
  830.     (prompt #copy-mcpprefs)
  831.     (source "Prefs/MCPPrefs")
  832.     (dest mcpprefs-dest)
  833.     (infos)
  834.   )
  835. )
  836.  
  837. (complete 21)
  838.  
  839. ; Copy catalog files
  840.  
  841. (if (and (BITAND install-files 16) (= (exists "Locale:") 2))
  842.   (
  843.     (set n 0)
  844.     (while
  845.       (set language
  846.         (select n
  847.           "English"
  848.           "Deutsch"
  849.           "Français"
  850.           "Danish"
  851.           "Italiano"
  852.           "Norsk"
  853.           "Svenska"
  854.           "Español"
  855.           "hrvatski"
  856.           "nederlands"
  857.           "suomi"
  858.           "turkçe"
  859.           "ÃeÓtina"
  860.           "çeský"
  861.           "ðóññêèé"
  862.           ""
  863.         )
  864.       )
  865.       (
  866.         (if (IN languages n)
  867.           (if (<> 0 n)   ; No catalog for english strings...
  868.             (
  869.               (set catalogs (tackon "Locale/Catalogs" language))
  870.               (set destination (tackon "Locale:Catalogs" language))
  871.               (makedir destination)
  872.               (if (exists (tackon catalogs "MCPPrefs.catalog"))
  873.                 (copylib
  874.                   (prompt #copy-catalog)
  875.                   (source (tackon catalogs "MCPPrefs.catalog"))
  876.                   (dest destination)
  877.                 )
  878.               )
  879.             )
  880.           )
  881.         )
  882.         (set n (+ n 1))
  883.       )
  884.     )
  885.   )
  886. )
  887.  
  888. (complete 28)
  889.  
  890. ;Copy Demo Config + Rename Old One !
  891.  
  892. (if (BITAND install-files 16)
  893.   (
  894.     (if (exists "ENVARC:MCP")
  895.       (rename "ENVARC:MCP/MCP.config" "ENVARC:MCP/MCP.Config.old")
  896.     )
  897.     (copyfiles
  898.       (prompt #copy-democonfig)
  899.       (source "ENVARC/MCP/MCP.Config")
  900.       (dest "ENVARC:MCP")
  901.     )
  902.     (if (exists "ENVARC:AssignManager.prefs")
  903.       (if
  904.         (askbool
  905.           (prompt #conv-am)
  906.           (help #conv-help "\n\n" @askbool_help)
  907.           (default 1)
  908.         )
  909.         (RUN "C/ConvAM"
  910.           (prompt #run-conv)
  911.         )
  912.       )
  913.     )
  914.     (if (exists "ENVARC:AssignPrefs")
  915.       (if
  916.         (askbool
  917.           (prompt #conv-ap)
  918.           (help #conv-help "\n\n" @askbool_help)
  919.           (default 1)
  920.         )
  921.         (RUN "C/ConvAP"
  922.           (prompt #run-conv)
  923.         )
  924.       )
  925.     )
  926.   )
  927. )
  928.  
  929. (complete 35)
  930.  
  931. ;Install 16 Color Pointer + Rename old one
  932.  
  933. (if (BITAND install-files 32)
  934.   (
  935.     (set pointer-source
  936.       (select pointer
  937.         "mcppointer01.prefs"
  938.         "mcppointer02.prefs"
  939.         "mcppointer03.prefs"
  940.       )
  941.     )
  942.     (if (Exists "ENVARC:MCP" )
  943.       (rename "ENVARC:MCP/mcppointer.prefs" "ENVARC:MCP/MCPPointer.prefs.old")
  944.     )
  945.     (set source-file (tackon "ENVARC/MCP" pointer-source))
  946.     (copyfiles
  947.       (prompt #copy-pointer)
  948.       (source source-file)
  949.       (dest "ENVARC:MCP")
  950.       (newname "MCPPointer.prefs")
  951.     )
  952.   )
  953. )
  954.  
  955. (complete 42)
  956.  
  957. (if (BITAND install-files 64)
  958.   (copyfiles
  959.     (prompt #copy-gurudat)
  960.     (source "S/MCP.gurudat")
  961.     (dest gurudat-dest)
  962.   )
  963. )
  964.  
  965. (complete 49)
  966.  
  967. (if (BITAND install-files 128)
  968.   (
  969.     (set n 0)
  970.     (while
  971.       (set doc
  972.         (select n
  973.           "docs/MCP_eng.guide"
  974.           "docs/MCP_ger.guide"
  975.           "docs/MCP_fr.guide"
  976.           "docs/MCP_ita.guide"
  977.           "docs/MCP_swe.guide"
  978.           ""
  979.         )
  980.       )
  981.       (
  982.         (if (IN doc-files n)
  983.           (copyfiles
  984.             (prompt #copy-doc)
  985.             (source doc)
  986.             (dest doc-dest)
  987.           )
  988.         )
  989.         (set n (+ n 1))
  990.       )
  991.     )
  992.   )
  993. )
  994.  
  995. (complete 56)
  996.  
  997. ; Copy PatchControl + Install in Startup
  998.  
  999. (if (BITAND install-files 256)
  1000.   (
  1001.     (copyfiles
  1002.       (prompt #copy-patchcontrol)
  1003.       (source "Tools/PatchControl")
  1004.       (dest patchcontrol-dest)
  1005.       (files)
  1006.     )
  1007.     (if (BITAND startup-files 2)
  1008.       (if (exists "C:ARQ")
  1009.         (RUN ("C/InsertText \"#?SetPatch#?\" \"%s\"" (tackon patchcontrol-dest "PatchControl ARQ")))
  1010.         (RUN ("C/InsertText \"#?SetPatch#?\" \"%s\"" (tackon patchcontrol-dest "PatchControl")))
  1011.       )
  1012.     )
  1013.   )
  1014. )
  1015.  
  1016. (complete 63)
  1017.  
  1018. ;Copy ShowPatches
  1019.  
  1020. (if (BITAND install-files 512)
  1021.   (copyfiles
  1022.     (prompt #copy-showpatches)
  1023.     (source "Tools/ShowPatches")
  1024.     (dest showpatches-dest)
  1025.   )
  1026. )
  1027.  
  1028. (complete 70)
  1029.  
  1030. ;Copy FixJump
  1031.  
  1032. (if (BITAND install-files 1024)
  1033.   (copyfiles
  1034.     (prompt #copy-fixjump)
  1035.     (source "Tools/FixJump")
  1036.     (dest fixjump-dest)
  1037.   )
  1038. )
  1039.  
  1040. (complete 74)
  1041.  
  1042. ;Copy mcpsupport.library to libs:
  1043.  
  1044. (if (BITAND install-files 2048)
  1045.   (copylib
  1046.     (prompt #copy-mcpsupport-library)
  1047.     (source "Libs/mcpsupport.library")
  1048.     (dest "Libs:")
  1049.   )
  1050. )
  1051.  
  1052. (complete 78)
  1053.  
  1054. ;Copy mcpgfx.library to Libs:
  1055.  
  1056. (if (BITAND install-files 4096)
  1057.   (copylib
  1058.     (prompt #copy-mcpgfx-library)
  1059.     (source "Libs/mcpgfx.library")
  1060.     (dest "Libs:")
  1061.   )
  1062. )
  1063.  
  1064. (complete 82)
  1065.  
  1066. ;Copy reqtools.library to libs:
  1067.  
  1068. (if (BITAND install-files 8192)
  1069.   (copylib
  1070.     (prompt #copy-reqtools-library)
  1071.     (source "Libs/reqtools.library")
  1072.     (dest "Libs:")
  1073.   )
  1074. )
  1075.  
  1076. (complete 86)
  1077.  
  1078. ;Copy ENVARC:MCP to ENV:MCP if MCP-Democonfig or Pointer is installed!
  1079.  
  1080. (if (OR (BITAND install-files 16) (BITAND install-files 32))
  1081.   (if (askbool
  1082.     (prompt #copy-envarc-env)
  1083.     (help @askbool_help)
  1084.     (default 1)
  1085.   )
  1086.       (copyfiles
  1087.         (source "ENVARC:MCP")
  1088.         (dest "ENV:MCP")
  1089.         (all)
  1090.       )
  1091.   )
  1092. )
  1093.  
  1094. (complete 98)
  1095.  
  1096. ;Run MCPPrefs Before Exiting
  1097.  
  1098. (if (BITAND install-files 4)
  1099.   (RUN (tackon mcpprefs-dest "MCPPrefs")
  1100.     (prompt #run-prefs)
  1101.     (help #run-prefs-help)
  1102.     (confirm 3)
  1103.   )
  1104. )
  1105.  
  1106. (complete 100)
  1107.  
  1108. (EXIT #install-exit)
  1109.